МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ІКТА кафедра «Захист інформації»
Звіт
про виконання лабораторної роботи №1
з дисципліни
"ПРОГРАМУВАННЯ КОМП`ЮТЕРНОЇ ГРАФІКИ"
ПОБУДОВА ЕЛЕМЕНТАРНИХ ГЕОМЕТРИЧНИХ ЗОБРАЖЕНЬ В СЕРЕДОВИЩІ ТУРБО-ПАСКАЛЬ
Варіант 16
Мета роботи - навчитися ініціалізувати графічний режим та вивчити основні графічні оператори мови Турбо-Паскаль, набути практичних навиків в складанні програм для побудови геометричних зображень та графіків функцій.
1. ЗАВДАННЯ
Домашня пiдготовка до роботи
1. Навчитися ініціалізувати графічний режим роботи відеоадаптера в середовищі Турбо-Паскаль.
2. Вивчити основні графічні процедури та функції алгоритмічної мови Турбо-Паскаль.
3.Написати програму на алгоритмічній мові Турбо-Паскаль, яка виводить на екран певне графічне зображення. Розміри, вказані в завданнях, проставити на кресленні. Варіанти завдань беруть за вказівкою викладача з таблиці 1.
Таблиця 1.
N% п/п
Варіанти завдань
16
Побудувати коло діаметром 120 і розбити його на 12 секторів.
Робота в лабораторiї
1. Ввести в комп'ютер програму, написану на мові Турбо-Паскаль згідно з отриманим завданням.
2. Здійснити відладку введеної програми, виправивши виявлені компілятором помилки.
3. Виконати програму. Текст відлагодженої програми та отримані результати оформити в звіт з лабораторної роботи.
2. БЛОК-СХЕМА АЛГОРИТМУ ПРОГРАМИ
3. Список ідентифікаторів змінних, використаних у програмі, та їх пояснення
gd
Тип графічного драйвера
gm
Режим роботи графічного драйвера
x, y
Змінні, яким присвоюються координати центра екрану в поточному режимі
а, b
Проміжні змінні, яким присвоюються заокруглені значення 60*sin30° і 60*cos30° відповідно
4. ТЕКСТ ПРОГРАМИ
program PKG1;
uses crt, graph;
var gd,gm,x,y,a,b:integer;
driver:integer;
begin
clrscr;
driver:=detect;
gd:=0;
initgraph(gd,gm,'');
x:=getmaxx div 2;
y:=getmaxy div 2;
circle(x,y,60);
line(x-60,y, x+60,y);
line(x,y-60, x,y+60);
a:=round(60*sin(pi/6));
b:=round(60*cos(pi/6));
line(x-b,y-a,x+b,y+a);
line(x-a,y-b,x+a,y+b);
line(x+a,y-b,x-a,y+b);
line(x+b,y-a,x-b,y+a);
readkey;
closegraph;
end.
5. РЕЗУЛЬТАТ ВИКОНАННЯ ПРОГРАМИ
Висновок: виконуючи цю лабораторну роботу я навчився працювати у графічному режимі середовища Турбо-Паскаль.
